Univariate Plots Section
## Using as id variables
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$fixed.acidity,data=d,geom="freqpoly", binwidth=0.5 )#,color=as.factor(quality))

qplot(d$fixed.acidity,data=d,geom="freqpoly", binwidth=0.1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$fixed.acidity),data=d)+geom_boxplot()

summary(d$fixed.acidity)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 4.60 7.10 7.90 8.32 9.20 15.90
qplot(d$volatile.acidity,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$volatile.acidity,data=d,geom="freqpoly",binwidth=0.01)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$volatile.acidity),data=d)+geom_boxplot()

summary(d$volatile.acidity)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.1200 0.3900 0.5200 0.5278 0.6400 1.5800
qplot(d$citric.acid,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$citric.acid,data=d,geom="freqpoly",binwidth=0.01)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$citric.acid),data=d)+geom_boxplot()

summary(d$citric.acid)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.000 0.090 0.260 0.271 0.420 1.000
qplot(d$residual.sugar,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$residual.sugar,data=d,geom="freqpoly",binwidth=0.1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$residual.sugar),data=d)+geom_boxplot()

summary(d$residual.sugar)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.900 1.900 2.200 2.539 2.600 15.500
qplot(d$chlorides,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$chlorides,data=d,geom="freqpoly",binwidth=0.001)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$chlorides),data=d)+geom_boxplot()

summary(d$chlorides)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.01200 0.07000 0.07900 0.08747 0.09000 0.61100
qplot(d$free.sulfur.dioxide,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$free.sulfur.dioxide,data=d,geom="freqpoly",binwidth=1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$free.sulfur.dioxide),data=d)+geom_boxplot()

summary(d$free.sulfur.dioxide)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.00 7.00 14.00 15.87 21.00 72.00
qplot(d$total.sulfur.dioxide,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$total.sulfur.dioxide,data=d,geom="freqpoly",binwidth=1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$total.sulfur.dioxide),data=d)+geom_boxplot()

summary(d$total.sulfur.dioxide)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 6.00 22.00 38.00 46.47 62.00 289.00
qplot(d$density,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$density,data=d,geom="freqpoly",binwidth=0.0001)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$density),data=d)+geom_boxplot()

summary(d$density)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.9901 0.9956 0.9968 0.9967 0.9978 1.0040
qplot(d$pH,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$pH,data=d,geom="freqpoly",binwidth=0.01)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$pH),data=d)+geom_boxplot()

summary(d$pH)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 2.740 3.210 3.310 3.311 3.400 4.010
qplot(d$sulphates,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$sulphates,data=d,geom="freqpoly",binwidth=0.01)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$sulphates),data=d)+geom_boxplot()

summary(d$sulphates)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.3300 0.5500 0.6200 0.6581 0.7300 2.0000
qplot(d$alcohol,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$alcohol,data=d,geom="freqpoly",binwidth=0.1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$alcohol),data=d)+geom_boxplot()

summary(d$alcohol)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 8.40 9.50 10.20 10.42 11.10 14.90
qplot(d$AA_score,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$AA_score,data=d,geom="freqpoly",binwidth=0.1)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$AA_score),data=d)+geom_boxplot()

summary(d$AA_score)
## V1
## Min. :-6.8196
## 1st Qu.:-1.6896
## Median :-0.2724
## Mean : 0.0000
## 3rd Qu.: 1.7281
## Max. : 7.0841
qplot(d$fraction.sulfur.dioxide,data=d,geom="freqpoly")#,color=as.factor(quality))
## stat_bin: binwidth defaulted to range/30. Use 'binwidth = x' to adjust this.

qplot(d$fraction.sulfur.dioxide,data=d,geom="freqpoly",binwidth=0.01)#,color=as.factor(quality))

ggplot(aes(x=1,y=d$fraction.sulfur.dioxide,),data=d)+geom_boxplot()

summary(d$fraction.sulfur.dioxide)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 0.02273 0.25930 0.37500 0.38230 0.48480 0.85710
Bivariate Plots Section
##
## Attaching package: 'psych'
##
## The following object is masked from 'package:car':
##
## logit
##
## The following object is masked from 'package:ggplot2':
##
## %+%

## fixed.acidity volatile.acidity citric.acid
## fixed.acidity 1.00000000 -0.256130895 0.67170343
## volatile.acidity -0.25613089 1.000000000 -0.55249568
## citric.acid 0.67170343 -0.552495685 1.00000000
## residual.sugar 0.11477672 0.001917882 0.14357716
## chlorides 0.09370519 0.061297772 0.20382291
## free.sulfur.dioxide -0.15379419 -0.010503827 -0.06097813
## total.sulfur.dioxide -0.11318144 0.076470005 0.03553302
## density 0.66804729 0.022026232 0.36494718
## pH -0.68297819 0.234937294 -0.54190414
## sulphates 0.18300566 -0.260986685 0.31277004
## alcohol -0.06166827 -0.202288027 0.10990325
## quality 0.12405165 -0.390557780 0.22637251
## fraction.sulfur.dioxide -0.13081236 -0.072618561 -0.16693889
## AA_score 0.39828994 -0.806903815 0.76442244
## residual.sugar chlorides free.sulfur.dioxide
## fixed.acidity 0.114776724 0.093705186 -0.153794193
## volatile.acidity 0.001917882 0.061297772 -0.010503827
## citric.acid 0.143577162 0.203822914 -0.060978129
## residual.sugar 1.000000000 0.055609535 0.187048995
## chlorides 0.055609535 1.000000000 0.005562147
## free.sulfur.dioxide 0.187048995 0.005562147 1.000000000
## total.sulfur.dioxide 0.203027882 0.047400468 0.667666450
## density 0.355283371 0.200632327 -0.021945831
## pH -0.085652422 -0.265026131 0.070377499
## sulphates 0.005527121 0.371260481 0.051657572
## alcohol 0.042075437 -0.221140545 -0.069408354
## quality 0.013731637 -0.128906560 -0.050656057
## fraction.sulfur.dioxide -0.070626080 -0.105156413 0.327240869
## AA_score 0.084486905 -0.036149794 -0.055125752
## total.sulfur.dioxide density pH
## fixed.acidity -0.11318144 0.66804729 -0.68297819
## volatile.acidity 0.07647000 0.02202623 0.23493729
## citric.acid 0.03553302 0.36494718 -0.54190414
## residual.sugar 0.20302788 0.35528337 -0.08565242
## chlorides 0.04740047 0.20063233 -0.26502613
## free.sulfur.dioxide 0.66766645 -0.02194583 0.07037750
## total.sulfur.dioxide 1.00000000 0.07126948 -0.06649456
## density 0.07126948 1.00000000 -0.34169933
## pH -0.06649456 -0.34169933 1.00000000
## sulphates 0.04294684 0.14850641 -0.19664760
## alcohol -0.20565394 -0.49617977 0.20563251
## quality -0.18510029 -0.17491923 -0.05773139
## fraction.sulfur.dioxide -0.37143493 -0.26497991 0.18489507
## AA_score -0.11339013 -0.07047315 -0.26265953
## sulphates alcohol quality
## fixed.acidity 0.183005664 -0.06166827 0.12405165
## volatile.acidity -0.260986685 -0.20228803 -0.39055778
## citric.acid 0.312770044 0.10990325 0.22637251
## residual.sugar 0.005527121 0.04207544 0.01373164
## chlorides 0.371260481 -0.22114054 -0.12890656
## free.sulfur.dioxide 0.051657572 -0.06940835 -0.05065606
## total.sulfur.dioxide 0.042946836 -0.20565394 -0.18510029
## density 0.148506412 -0.49617977 -0.17491923
## pH -0.196647602 0.20563251 -0.05773139
## sulphates 1.000000000 0.09359475 0.25139708
## alcohol 0.093594750 1.00000000 0.47616632
## quality 0.251397079 0.47616632 1.00000000
## fraction.sulfur.dioxide -0.010459139 0.24627450 0.19411335
## AA_score 0.306868847 0.60338613 0.50263963
## fraction.sulfur.dioxide AA_score
## fixed.acidity -0.13081236 0.39828994
## volatile.acidity -0.07261856 -0.80690381
## citric.acid -0.16693889 0.76442244
## residual.sugar -0.07062608 0.08448690
## chlorides -0.10515641 -0.03614979
## free.sulfur.dioxide 0.32724087 -0.05512575
## total.sulfur.dioxide -0.37143493 -0.11339013
## density -0.26497991 -0.07047315
## pH 0.18489507 -0.26265953
## sulphates -0.01045914 0.30686885
## alcohol 0.24627450 0.60338613
## quality 0.19411335 0.50263963
## fraction.sulfur.dioxide 1.00000000 0.06987323
## AA_score 0.06987323 1.00000000
## [,1]
## fixed.acidity 0.12405165
## volatile.acidity -0.39055778
## citric.acid 0.22637251
## residual.sugar 0.01373164
## chlorides -0.12890656
## free.sulfur.dioxide -0.05065606
## total.sulfur.dioxide -0.18510029
## density -0.17491923
## pH -0.05773139
## sulphates 0.25139708
## alcohol 0.47616632
## quality 1.00000000
## fraction.sulfur.dioxide 0.19411335
## AA_score 0.50263963
## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.

## geom_smooth: method="auto" and size of largest group is >=1000, so using gam with formula: y ~ s(x, bs = "cs"). Use 'method = x' to change the smoothing method.
